;;; This file is part of guix-bavier.git
;;; Copyright © 2019,2020 Eric Bavier <bavier@posteo.net>
;;; License: GPLv3+

(define-module (bavier packages cdrom)
  #:use-module (guix utils)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages gnome)
  #:use-module ((guix licenses) #:prefix license:))

(define-public cdrdao
  (package
    (name "cdrdao")
    (version "1.2.4")
    (source (origin
              (method url-fetch)
              (uri (string-append "mirror://sourceforge/cdrdao/"
                                  "cdrdao-" version ".tar.bz2"))
              (sha256
               (base32
                "1d2kk2h1n08w8vi6dab0mip678if9kqwnr05qv6sxkkh6fw9r39m"))))
    (build-system gnu-build-system)
    (native-inputs `(("pkg-config" ,pkg-config)))
    (home-page "http://cdrdao.sourceforge.net/")
    (synopsis "Write audio/data CD-Rs in disk-at-once mode")
    (description "Cdrdao records audio or data CD-Rs in @acronym{DAO, disk-at-once}
mode based on a textual description of the CD contents, the \"toc-file\", for
which this package also provides the @code{cue2toc}, @code{toc2cddb}, and
@code{toc2cue} tools.")
    (license license:gpl2+)))

;; TODO: When searching at runtime for available tools to determine
;; which plugins and functionality to enable, Brasero ignores any
;; symlinks.  This is not great for Guix because executables are
;; always symlinks... :( Need to figure out why brasero behaves this
;; way and whether we can patch it out for Guix.
